home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / gethxw.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  2.1 KB  |  104 lines
  1. # CVS $Id: gethxw.tcl,v 1.1 1995/02/03 17:15:40 zibi Exp $
  2.  
  3. proc quitCB {cns} {
  4.     VtClose
  5. }
  6.  
  7. proc updateCB {cbs} {
  8.     global text1 text2 text3 text4 label1 radio form
  9.  
  10.     VtSetValues $text1 \
  11.     -value "[VtGetValues $label1 -height] X [VtGetValues $label1 -width]"
  12.  
  13.     VtSetValues $text2 \
  14.     -value "[VtGetValues $text1 -height] X [VtGetValues $text1 -width]"
  15.  
  16.     VtSetValues $text3 \
  17.     -value "[VtGetValues $radio -height] X [VtGetValues $radio -width]"
  18.  
  19.     VtSetValues $text4 \
  20.     -value "[VtGetValues $form -height] X [VtGetValues $form -width]"
  21. }
  22.  
  23. set app [VtOpen gethxwtest]
  24.  
  25. set form [VtFormDialog $app.form]
  26.  
  27. set label1 [VtLabel $form.label1 \
  28.     -topSide FORM \
  29.     -leftSide FORM \
  30.     -label "label1:"]
  31.  
  32. set text1 [VtText $form.text1 \
  33.     -leftSide $label1 \
  34.     -topSide FORM \
  35.     -rightSide FORM]
  36.  
  37. set label2 [VtLabel $form.label2 \
  38.     -leftSide FORM \
  39.     -label "text1:"]
  40.  
  41. set text2 [VtText $form.text2 \
  42.     -leftSide $label2 \
  43.     -topSide $text1 \
  44.     -rightSide FORM]
  45.  
  46. set label3 [VtLabel $form.label3 \
  47.     -leftSide FORM \
  48.     -label "radio:"]
  49.  
  50. set text3 [VtText $form.text3 \
  51.     -leftSide $label3 \
  52.     -topSide $text2 \
  53.     -rightSide FORM]
  54.  
  55. set label4 [VtLabel $form.label4 \
  56.     -leftSide FORM \
  57.     -label "form:"]
  58.  
  59. set text4 [VtText $form.text4 \
  60.     -leftSide $label4 \
  61.     -topSide $text3 \
  62.     -rightSide FORM]
  63.  
  64. set radio [VtRadioBox $form.radio \
  65.     -horizontal \
  66.     -borderWidth 2 \
  67.     -topSide $text4 \
  68.     -leftSide FORM \
  69.     -rightSide FORM]
  70. set rb1 [VtToggleButton $radio.rb1]
  71. set rb2 [VtToggleButton $radio.rb2]
  72. set rb3 [VtToggleButton $radio.rb3]
  73.  
  74. set update [VtPushButton $form.update \
  75.     -topSide $radio \
  76.     -leftSide FORM \
  77.     -rightSide 50 \
  78.     -bottomSide FORM \
  79.     -callback updateCB]
  80.  
  81. set quit [VtPushButton $form.quit \
  82.     -topSide $radio \
  83.     -leftSide 50 \
  84.     -rightSide FORM \
  85.     -bottomSide FORM \
  86.     -callback quitCB]
  87.  
  88. VtSetValues $text1 \
  89.     -value "[VtGetValues $label1 -height] X [VtGetValues $label1 -width]"
  90.  
  91. VtSetValues $text2 \
  92.     -value "[VtGetValues $text1 -height] X [VtGetValues $text1 -width]"
  93.  
  94. VtSetValues $text3 \
  95.     -value "[VtGetValues $radio -height] X [VtGetValues $radio -width]"
  96.  
  97. VtSetValues $text4 \
  98.     -value "[VtGetValues $form -height] X [VtGetValues $form -width]"
  99.  
  100. VtShow $form
  101.  
  102. VtMainLoop
  103.  
  104.